τιμές

e = 2.718281828459045
A = (1, 4)
Β = (1, 2)
Σημείο = false
f = If(x < 1.0, sin(x - 1.0) + 2.0, -2.0 * x^(2.0) + 4.0)
μ_1 = -2.7 (slider from -14 to 1, step 0.1)
μ: (μ_1, f(μ_1))
a = OrthogonalLine(μ, yAxis)
C = Intersect(a, yAxis)
b = Segment(μ, C)
Μ_1 = 1.5 (slider from 1 to 4, step 0.1)
Μ: (Μ_1, f(Μ_1))
c = OrthogonalLine(Μ, yAxis)
E = Intersect(c, yAxis)
d = Segment(Μ, E)
g = OrthogonalLine(μ, xAxis)
h = OrthogonalLine(Μ, xAxis)
B = Intersect(g, xAxis)
D = Intersect(h, xAxis)
i = Segment(μ, B)
j = Segment(Μ, D)
k = false
F = Intersect(i, xAxis)
G = Intersect(xAxis, j)